with Interfaces.C; use Interfaces.C;
with T_Telephone; use T_Telephone;
package body T_Standard is

	task body Standard is

	enPanne : boolean := false;

	begin
		while(not(enPanne))loop
			select
				accept CONNECTER(exp : Telephone; dest : Telephone)
				do
					Mettre_en_relation(exp,dest);
					Mettre_en_relation(dest,exp);
				end CONNECTER;
			end select;
		end loop;
		exception
		when E : others =>
			put_line("Erreur dans la tache STANDARD");
			put("Exception Identity : ");
			put_line(Exception_Name(Exception_Identity(E)));
			put("Exception Name : ");
			put_line(Exception_Name(E));
			put("Exception message : ");
			put_line(Exception_Message(E));
			put("Exception information : ");
			put_line(Exception_Information(E));
	end Standard;

end T_Standard;